home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-07-11 | 373 b | 18 lines | [TEXT/ttxt] |
- ; construct xor
-
- begin_code
- copy firstop=>reg1
- copy secondop=>reg2
- copy reg1=>reg3 ; make two copies
- copy reg2=>reg4
- or reg1=>reg2 ; A or B
- and reg3=>reg4 ; A and B
- not reg4 ; not(A and B)
- and reg2=>reg4 ; A xor B
- halt
- end_code
- begin_data
- firstop constant 255 ; last 8 digits: 1111 1111
- secondop constant 170 ; last 8 digits: 1010 1010
- end_data
- end